Private Sub Workbook_Open()

    Dim Ʈ As VBProject
    Dim  As String
    Dim  As String
    Dim  As String
    Dim ޽ As String

     = ThisWorkbook.Path & "\"
     = "modMain"
     =  &  & ".bas"
    
    If Dir() <> "" Then
    
        ޽ = "ο Ʈ ߰ߵǾϴ." & vbCr & vbCr
        ޽ = ޽ & "Ʈ ұ?"
    
        If MsgBox(޽, vbYesNo, "ڵƮ") = vbYes Then
    
            Set Ʈ = ThisWorkbook.VBProject
                
            With Ʈ.VBComponents
            
                .Remove Ʈ.VBComponents()
                .Import Filename:=
            
            End With
    
            Kill 
    
        End If
    
    End If
    
End Sub
